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DECUS Program Library Write-up 


DECUS NO. 8-492 


BINLOAD, BINTAPE , AND SEARCH 


Abstract 

This program is designed to replace the binary loader, DEC-08-LBAA-PM for 
use in a PDP-8e with 4K memory. In addition, the program contains a core 
to paper-tape dump routine designed to replace DEC-08-YX1A-PB, which can be 
used to obtain a paper tape in standard binary format for any or all of 
the 4K core. Also contained is a routine for searching core for any desired 
12-bit word. The address of each occurrence of the word is displayed in the 
accumulator. Entire routine resides in locations 7600-7777, hence is com¬ 
patible with other DEC routines. A 12-instruction toggle-in bootstrap 
loader for the PDP-8e for loading this routine is also provided. 


Directions for use 

Toggle in manually the bootstrap loader, starting at address 0000. Place 
the binary tape for BINLOAD in the TTY tape reader. Using a starting address 
of 0000, start the machine. When the BINLOAD tape has run through, the entire 
routine has been loaded. Note that the actual length of this tape is critical 
due to limitations of the bootstrap loader, and depends upon the automatic 
switch on the TTY to stop loading when the tape runs out. 

To load a binary tape using this routine, use a starting address of 7600. It 
is necessary to start your tape at the first actual address, however, which 
means bypassing the first address on binary paper tapes supplied by DEC, which 
is the address 0200 (see Figure 1 and Figure 2).* After the program is first 
started, the tape reader will run momentarily and then stop. This is a 
programmed halt at 7610 for the purpose of entering a 12-bit binary word which 
is to be added to each address of the tape being loaded, thus providing a 
relocatable feature. This feature is quite useful in the case where binary 
tapes of the various routines supplied by DEC under Digital-8-XX-U are kept on 
hand, all with a starting address of 0200. Any of these can be placed in core 
on any page without the necessity of assembling them each time. This feature 
must be used with caution, however, particularly if there are any absolute 
addresses in the user's program, and almost always must consist only of a 
change of page location because no provision is made for changing the target 
addresses in jump or JMS instructions. In the more usual case, no relocation 
is desired, so set the switch register to all down (0000) before pressing the 
continue key. 

To use the BINTAPE portion of the program, a starting address of 7777 is 
used. This provides a jump to 7660, which is the actual start of the routine 
in the program. To use, set 7777 in the switch register. Then press load add¬ 
ress key, clear key, and the continue key. The TTY will blip once. Turn on the 

*The user will probably find it expedient to make new binary tapes, using 
the BINTAPE portion of this program, of the DEC programs which he uses regularly, 
such as PAL III, Editor, FOCAL, etc. Paper tapes made with this routine run 
directly on the BINLOAD portion with no necessity to be careful of the starting 
position. 
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TTY punch. Set the beginning address for the core to paper-tape dump in the 
switch register, then press continue. Nothing happens here! Set the last 
address for the core to paper-tape dump in the switch register. Press con¬ 
tinue again. Binary tape will now be produced on the TTY punch. When the tape 
stops, the area of core, together with its beginning address as specified, will 
have been punched. If other segments of core are desired on the same binary 
tape, set the starting address of the next segment in the switch register and 
press continue again, then mount the next ending address in the switch register 
and press continue again. Be careful not to press the "clear" key when loading 
additional segments, as this would destroy the checksum. When all segments 
of core have been punched as desired, set the switch register to 0000 and once 
again press the continue key. The TTY will commence producing punches in the 
8-column of the paper tape until it is stopped manually by pressing the halt 
key. Because of this last feature, a starting address of 0000 for any segment 
of a core dump is not allowed, but this should not be a problem since that 
address is reserved for the interrupt feature, and hence will probably not be 
used by the programmer. 


To use the SEARCH routine, start by setting the switch register to 0012 and 
press load-address and examine keys. Note the contents of this address so 
that it can be restored when finished searching, then enter 0000 in 
0012. Next enter the desired 12-bit word in address 7776. Using 7765 as a 
starting address, start the program. The address of the next occurrence of 
the 12-bit word entered in 7776 will be displayed in the AC register. Each 
time the continue key is pressed, the next occurrence of the word will be 
displayed until all 4K of memory has been examined, then it willstart over 
again. Restore the contents of 0012 and return to the program you were exec¬ 
uting before the search. 


Program Limitations 


This program utilizes an instruction peculiar to the PDP-8e, namely the 
byte-swap (BSW) in two locations, hence cannot be used as written on any of the 
other PDP-8 machines without modification. RTL instructions can be sub¬ 
stituted but then the SEARCH routine would not have sufficient room, and 
would have to be eliminated. 


This program is not designed to handle more than 4K of core, and will not 
recognize the 7-8 bit combination which indicates other fields of core. Any 
8-punch in a binary tape being read in will cause a halt, hence diagnostic 
messages from the Assembler will cause a halt. It is not difficult to 
circumvent this by simply lifting the binary tape out of the reader when it 
halts, and manually moving the tape to the first row of holes past the end of 
the diagnostic message (which will be indicated by a rub-out), and pressing 
the continue key. 
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Here is a listing of the bootstrap loader; 


0000 

6032 

KCC 

/USE THIS ROUTINE 

0001 

6031 START, 

KSF 

/TO TOGGLE-IN FOR 

0002 

5201 

JMP .-1 

/LOADING BINLOAD 

0003 

6036 

KRB 

/& BINTAPE. THIS 

0004 

7002 

BSW 

/PROVIDES NO AUTO- 

0005 

7421 

MQL 

/MATIC STOP. TAPE 

0006 

6031 

KSF 

/MUST BE STOPPED 

0007 

5206 

JMP .-1 

/MANUALLY OR BY 

0010 

6036 

KRB 

/MEANS OF THE AUTO- 

0011 

7501 

MQA 

/MATIC STOP ON THE 

0012 

3614 

DCA I PNTR 

/TTY. 

0013 

5201 

JMP START 


0014 

7577 PNTR, 

7577 




Start of typical paper tape 
as supplied by DEC or PAL III 
Assembler. To load by this 
program, start must be made 
at point indicated by arrow 



Start of a paper tape made by 
this program. Note elimination 
of starting 7-punch and the ad¬ 
dress 0200; also the absence of 
the 8-punches. 


Both of the above examples are from the same program and have an actual 
starting address of 0001 as the point where loading of c ore is to commence. 









*12 


0012 

0000 

PTR, 

0000 



*7600 



7600 

7300 


CLA 

CLL 

7601 

3360 


DCA 

CSUM 

7602 

6032 


KCC 


7603 

4350 

LOAD, 

JMS 

READ 

7604 

7450 


SNA 


7605 

5203 


JMP 

LOAD 

7606 

7402 


HLT 


7607 

5211 


JMP 

HERE 

7610 

4350 

HIGH, 

JMS 

READ 

761 1 

3357 

HERE, 

DCA 

LOC 

7612 

1357 


TAD 

LOC 

7613 

0364 


AND 

K300 

7614 

7450 


SNA 


7615 

5240 


JMP 

LODE 

7616 

0362 


AND 

K100 

7617 

7450 


SNA 


7620 

5233 


JMP 

EOJ 

7621 

7300 

ADDR, 

CLA 

CLL 

7622 

1357 


TAD 

LOC 

7623 

0361 


AND 

K77 

7624 

3357 


DCA 

LOC 

7625 

4244 


JMS 

SMBL 

7626 

3356 


DCA 

PNTR 

7627 

7404 


OSR 


7630 

1356 


TAD 

PNTR 

7631 

3356 


DCA 

PNTR 

7632 

5210 


JMP 

HIGH 

7633 

1360 

EOJ, 

TAD 

CSUM 

7634 

7110 


CLL 

RAR 

7635 

7041 


CIA 


7636 

1342 


TAD 

PNCH 

7637 

7402 


HLT 


7640 

4244 

LODE, 

JMS 

SMBL 

7641 

3756 


DCA 

I PNTR 

7642 

2356 


ISZ 

PNTR 

7643 

5210 


JMP 

HIGH 

7644 

0000 

SMBL, 

0000 

7645 

1357 


TAD 

LOC 

7646 

7002 


BSW 


764 7 

3357 


DCA 

LOC 

7650 

43 50 


JMS 

READ 

7651 

1357 


TAD 

LOC 

7652 

3342 


DCA 

PNCH 

7653 

1342 


TAD 

PNCH 

7654 

1360 


TAD 

CSUM 

7655 

3360 


DCA 

CSUM 

7656 

1342 


TAD 

PNCH 

765 7 

5644 


JMP 

I SMBL 

7660 

6046 

STRT, 

TLS 



/ZERO CHECKSUM STORAGE. 

/CLEAR KEYBOARD BUFFER AND ACC. 

/READ TTY BUFFER AND 

/IF IT'S ZERO GO BACK TO LOAD. 

/STOP FOR ENTERING RELOC- 
/ATABLE FACTOR. SEE LINE 7627. 
/READ TTY BUFFER. 

/AND STORE IN LOC. 

/MASK FOR 7 OR 8 BIT. 

/IF NO 7 OR 8 BIT THEN 
/ITS TO BE LOADED, 

/ELSE IS IT 7-BIT? 

/IF NOT, ITS AN 8-BIT, 

/HENCE WE’RE THROUGH. 

/WE'RE HERE IF IT'S A 
/7-BIT,HENCE THIS IS AN 
/ADDRESS WHICH IS TO BE 
/STORED IN PNTR. 

/SO ASSEMBLE THE 12 BITS. 

/ENTER THE RELOCATABLE FACTOR 
/TO BE ADDED TO THE STARTING ADD 
/HESSES ON THE TAPE, AND THEN 
/STORE IN PNTR. 

/GO BACK FOR NEXT CHARACTER. 
/WE'RE HERE IF THERE WAS AN 
/8-BIT, WITH TAPE CHECKSUM IN AC. 
/HENCE COMPLEMENT AND ADD OUR 
/CHECKSUM FOR A ZERO AC, THEN 
/STOP. 

/THIS ROUTINE LOADS ASSEMBLED 
/CHARACTER IN LOCATION 
/POINTED TO BY PNTR AND 
/THEN INCREMENTS PNTR. 

/GET 6-BIT CHARACTER 
/AND SHIFT IT TO THE HIGH ORDER 6 
/FOR COMPLETE WORD, THEN STORE 
/TEMPORARILY, READ LOW 6-BITS 
/THEN ADD TO HIGH ORDER 6-BITS. 
/NOW STORE ASSEMBLED 12-BIT WORD. 
/ADD IT TO FORMER VALUE OF CHECK- 
/SUM AND PUT BACK IN 
/CHECKSUM, THEN 

/LEAVE SUBROUTINE WITH ASSEMBLED 
/12-BIT WORD IN ACCUMULATOR. 

/SET TTY PUNCH FLAG. 


-BITS 
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7661 

7300 


CLA 

CLL 

7662 

3360 


DCA 

CSUM 

7663 

7402 

RNTR* 

HLT 


7664 

7404 


OSR 


7665 

7450 


SNA 


7666 

5317 


JMP 

END 

7667 

3356 


DCA 

PNTR 

7670 

7402 


HLT 


7671 

7404 


OSR 


7672 

7040 


CMA 


7673 

1356 


TAD 

PNTR 

7674 

3355 


DCA 

CNTR 

7675 

1356 


TAD 

PNTR 

7676 

1360 


TAD 

CSUM 

7677 

3360 


DCA 

CSUM 

7700 

1356 


TAD 

PNTR 

7701 

3357 


DCA 

LOC 

7702 

7120 


STL 


7703 

4327 


JMS 

SET 

7704 

1756 

TAPE* 

TAD 

I PNTR 

770 5 

1360 


TAD 

CSUM 

7706 

3360 


DCA 

CSUM 

770 7 

7100 


CLL 


7710 

1756 


TAD 

I PNTR 

7711 

3357 


DCA 

LOC 

7712 

4327 


JMS 

SET 

7713 

2356 


ISZ 

PNTR 

7714 

2355 


ISZ 

CNTR 

7715 

5304 


JMP 

TAPE 

7716 

5263 


JMP 

RNTR 

7717 

1360 

END* 

TAD 

CSUM 

7720 

3357 


DCA 

LOC 

7721 

4327 


JMS 

SET 

7722 

1363 


TAD 

K200 

7723 

6041 


TSF 


7724 

5323 


JMP 

.-1 

7725 

6046 


TLS 


7726 

5323 


JMP 

.-3 

7727 

0000 

SET* 

0000 

7730 

1357 


TAD 

LOC 

7731 

7002 


BSW 


7732 

0361 


AND 

K77 

7733 

7430 


SZL 


7734 

1362 


TAD 

K100 

7735 

4342 


JMS 

PNCH 

7736 

1357 


TAD 

LOC 

7737 

0361 


AND 

K77 

7740 

4342 


JMS 

PNCH 

7741 

5727 


JMP 

I SET 

7742 

0000 

PNCH* 

0000 


7743 

6041 


TSF 


7744 

5343 


JMP 

.-1 


/CLEAR CHECKSUM STORAGE. 

/WAIT FOR STARTING ADDRESS TO BE 
/ENTERED IN SWITCH REGISTER. 
/CHECK FOR LAST ENTRY* IF LAST 
/GO TO END ROUTINE. 

/IF NOT ZERO* SAVE IT IN PNTR 
/WAIT FOR ADDRESS OF LAST WORD TO 
/BE ENTERED IN SWITCH REGISTER. 
/ESTABLISH COUNTER BY SUBTRACTING 
/LAST ADDRESS FROM FIRST 
/AND STORE IN COUNTER. 

/ADD VALUE OF ADDRESS TO VALUE 
/OF CHECKSUM AND DEPOSIT 
/RESULT IN CHECKSUM. 

/NOW PUT POINTER IN TEMPORARY 
/STORAGE FOR USE BY SET ROUTINE. 
/THIS MARKS IT AS AN ADDRESS 
/TO PUNCH 7-BIT. 

/GET NEXT CORE LOCATION 
/AND ADD IT TO CHECKSUM 
/THEN PUT CHECKSUM BACK 
/TO AVOID CONFUSION WITH 7-BIT 
/GET CORE LOCATION BACK AND 
/PUT IT IN LOC* 

/THEN GO PUNCH IT. 

/INCREMENT THE POINTER AND THE 
/COUNTER UNTIL COUNTER REACHES 0* 
/BUT GO BACK FOR NEXT IF NOT 0 
/OR GO BACK FOR NEXT ADDRESS. 
/YOU'RE FINISHED* SO GET 
/CHECKSUM AND GO 
/PUNCH IT. 

/THEN SET UP FOR PUNCHING THE 
/8-BIT TRAILER UNTIL MACHINE 
/IS STOPPED MANUALLY. 


/BRING IN NUMBER TO ROTATE 
/HIGH ORDER BITS TO RIGHT SIDE* 
/MASK FOR RIGHT SIDE 
/IF LINK IS SET THIS IS AN 
/ADDRESS <S NEEDS 7-BIT. 

/PUNCH HIGH ORDER 6-BITS. 

/BRING IN NUMBER AGAIN 
/AND MASK LOW ORDER 6-BITS* 
/THEN PUNCH THEM* 

/AND RETURN. 

/SUBROUTINE TO PUNCH A 
/CHARACTER ON THE TTY AND 
/RETURN TO MAIN PROGRAM. 
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774 5 

6046 

TLS 


7746 

7300 

CLA CLL 


7747 

5742 

JMP I PNCH 


7750 

0000 READ* 

0000 

/SUBROUTINE TO READ A CHARACTER 

7751 

6031 

KSF 

/FROM THE TELETYPE. 

7752 

5351 

JMP .-1 


7753 

6036 

KRB 


7754 

5750 

JMP I READ 

/AND RETURN TO PROGRAM. 

7755 

0000 CNTR, 

0000 


7756 

0000 PNTR, 

0000 


7757 

0000 LOC, 

0000 


7760 

0000 CSUM, 

0000 


7761 

0077 K77, 

0077 


77 62 

0100 K100, 

0100 


7763 

0200 K200, 

0200 


7764 

0300 K300, 

0300 


7765 

7300 SRCH, 

CLA CLL 

/THIS IS THE START OF A SEARCH 

7766 

1412 

TAD I PTR 

/ROUTINE TO BE ADDED TO THE END OF 

7767 

7041 

CIA 

/BINLOAD & BINTAPE. ENTER SEARCHED- 

7770 

1376 

TAD DSRD 

/FOR CHARACTER IN 7776. POINTER FOR 

7771 

7440 

SZA 

/ROUTINE IS IN 0012-THIS SHOULD BE 

7772 

5365 

JMP SRCH 

/CLEARED BEFORE STARTING. STARTING 

7773 

1012 

TAD PTR 

/ADDRESS IS 775.POUINE STOPS AND 

7774 

7402 

HLT 

/DISPLAYS ADDRESS OF SEARCHED-FOR 

7775 

5365 

JMP SRCH 

/CHARACTER IN AC. PRESS CONTINUE FOR 

7776 

0000 DSRD, 

0000 

/REPEATED OCCURENCES. 

7777 

5260 

JMP STRT 

/JUMPS TO START OF CORE PUNCH ROUTINE 

ADDR 

7621 



CMTR 

7755 



CSUM 

7760 



DSRD 

7776 



END 

7717 

Note: The list of constants in addresses 

EO J 

7633 

7755- 

7764 are shared by both the 

HERE 

761 1 

BINLOAD and BINTAPE programs. 

HIGH 

7610 



K100 

7762 



K200 

7763 



H300 

7764 



K77 

7761 



LOAD 

7603 



LOG 

7757 



LODE 

7640 



PMCH 

7742 



PM T R 

7756 



PTR 

0012 



READ 

7750 



RNTE 

7663 



SET 

7727 



SMBL 

7644 



SRCH 

7765 



STRT 

7660 



TAPE 

7704 
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